summarize_plans <- function(plans, map, county_vec, min_vector, tot_vector) {
  
  small_plans <- plans %>% filter(draw == "2010 Adopted" | 
                                    draw %in% seq(1, nrow(plans), by = 1000))
  
  plans$draw <- match(plans$draw, unique(plans$draw))
    
  sum_plans <- plans %>%
           mutate(pct_min = group_frac(map, min_vector, tot_vector)) %>%
    group_by(draw) %>%
    summarize(maj_min = sum(pct_min >= 0.5, na.rm = TRUE),
              med_min = median(pct_min, na.rm = TRUE),
              max_min = max(pct_min, na.rm = TRUE),
              pct_min = list(pct_min, na.rm = TRUE))
  
  splits <- county_splits(ebr_map, ebr_map$COUNTYFP10, plans)
  
  list(small_plans = plans,
       sum_plans = sum_plans,
       splits = splits)
  
}